Var a : integer;
begin
a:=random(98)+2 ;
write(a)
end.
=(7+2+6+4+6+0+9)/7=34/7=4,857142857142857
While (условие) do
операция цикла
Var a: ineger;
begin
write('Введите возраст: ');
read(a);
if a>=18 then writeln('Это ребенок');
else writeln('Это взрослый');
end.