Задачи в Pascal'

1)
var
otvet: string;

begin
write('Делаешь ли ты зарядку по утрам? ');
readln(otvet);
if (otvet = 'Да') or (otvet = 'да') then writeln('Молодец, физльт-ура! ')
else writeln('Если хочешь быть здоровым - закаляйся! ');
readln;
end.

2)
var
a, b, n: integer;

begin
write('Номер Вашей школы: ');readln(n);
write('Числа через пробел: ');readln(a, b);
if (a = n) or (b = n) then writeln('Да')
else writeln('Нет');
readln;
end.

3)
var
a: integer;

begin
write('Сколько вам лет? ');readln(a);
if a > 100 then writeln('Вы хорошо сохранились для вашего возраста! ')
else writeln('Лет до 100 вам расти без старости! ');
readln;
end.

4)
var
kr, kv: real;

begin
write('Радиус круга = ');readln(kr);
write('Сторона квадрата = ');readln(kv);
if pi * kr * kr > kv * kv then writeln('Площадь круга больше') else
if pi * kr * kr < kv * kv then writeln('Площадь квадрата больше') else
writeln('Они равны');
readln;
end.

5)
var
otvet: string;

begin
write('Любите ли вы мороженное? ');
readln(otvet);
if (otvet = 'Да') or (otvet = 'да') then writeln('Ну, что ж поедим вместе')
else writeln('Прекрасно отдайте свою порцию мне! ');
readln;
end.

Задачи для школьника-первоклассника. Если ты это не можешь написать, что ты будешь делать потом?

я тебе скинул на почту в txt

Задачи примитивные.
Если лень решать, то писать надо не "решите, пожалуйста", а "решите за ХХХХ руб. "