1.Вычислить сумму чисел больше - 50 и меньше 200, которые заканчиваются

program zz1;
var a, b, r, i, n, s:integer; // задаем переменные целого типа
begin
for i:=-50 to 200 do
begin
if (i mod 10 = 5) or (i mod 10 = 0) then r:=r + i; // вычисляем сумму чисел оканчивающихся на 5 или 0
end;
writeln( сумма чисел , r); //выводим ответ
b:=1;
write( введите первое число а ); // вводим с клавиатуры первое число
read(a);
write( введите 2-ое число n); // вводим с клавиатуры 2-ое число
read(n);
for i:=1 to n do
b:=b*a;
writeln( а в ступени n = , b); //выводим ответ
while blt;gt;0 do
begin
r:= b mod 10; // получаем заключительную цифру
b:=b div 10; //отбрасываем ее
s:=s+r; //добавляем ее в сумму
end;
write( сумма цифр числа = , s); //выводим ответ
end.