На паскале "Начала программирования"

2. Составить программу, запрашивающую оценки за контрольные

работы по информатике и физике. Если их сумма не менее 8, то

на экран должен выводиться комментарий "Молодец!", в

противном случае - "Подтянись!".

3. Найти сумму квадратов натуральных чисел от 15 до 25.

Program zadane2;

var

i, b, c:integer;

begin

Writeln ('Оценка за контрольную по Информатике ');

Readln (i);

Writeln ('Оценка за контрольную по Физике ');

Readln (b);

c:=i+b;

if (c>=8) then Writeln ('Молодец!')

else Writeln ('Подтянись!')

end.

program zadane3;

var

i, b:integer;

begin

for i:=15 to 25 do

begin

b:=i*i;

Writeln (b);

end;

end.