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

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.