На паскале "Начала программирования"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.