za ono prvo pogledaj u help, niko nije lud da sve to kuca.
za ono drugo:
var s: string; r: real; kod: Integer;
begin
Read(s);
val(s, r, kod);
if kod <> 0 then
Write('Greska')
else
begin
//obrada, realni rezultat je u r, a ako ti treba ceo broj onda ide sa Round(r)
end;
end.
Ride the rainbow, crack the sky