ПОЖАЛУЙСТА ПОМОГИТЕ! 1) Написать программу, которая запрашивает: «Введите…

Пожалуйста: 1) program veter1; var x: integer; beginwriteln ('Vvedite skorost vetra v m/s'); readln (x); if x>=20 then writeln ('Veter slabii'); end. 2) program frykti1; var x: string; beginwriteln ('vashi lybimie frykti? '); readln (x); writeln (x,', soderjat mnogo vitaminov'); end.