1)
program veter1;
var
x:integer;
begin
writeln('Vvedite skorost vetra v m/s');
readln(x);
if x>=20 then writeln('Veter slabii');
end.
2)
program frykti1;
var
x:string;
begin
writeln('vashi lybimie frykti?');
readln(x);
writeln(x,', soderjat mnogo vitaminov');
end.
