Фото из учебника, вы че все такие тупые то? надо фотки присылать и еще сама раскрасить не можешь чтоли?
Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=50;
Repeat
S:=S+A;
K:=K+5;
A:=A+1;
Until A>150;
WriteLn('SR = ',2*S);
WriteLn('K = ',K);
End.
Sqr(5) sqr(stgx) sqr (y-1)
sqr возведение в квадрат в паскале
var a:string;
begin
Writeln('В каком году началась Великая Отечественная война?');
Readln(c);
if c = '1945' then Writeln ('Правильно!')
else Writeln('Вы ошиблись, Великая Отечественная война началась в 1945 году');
end.