Var a, b, c, d, h, i:integer;
begin
read (h);
write (1200*9.8*h);
end.
P.S. Благодарность не помешает.
Карп корп кора коза по другому не знаю
Var i,j,x,n
x - введенное число, i - число с которым нужно сравнить, n - счётчик чисел
n:=0;
ReadLn (i);
for j:=1 to 5 do begin
ReadLn (x);
if x=i then n:=n+1;
end;
writeLn("N= "n)