Var
 A,B,X:real;
Begin
 Write('A= ');
 Readln(A);
 Write('B= ');
 Readln(B);
 Writeln('Result:');
 If (A=0) and (B=0) then Writeln('Any value')
 else
 If (A=0) and (B<>0) then Writeln('No solution')
 else Write ('X= ',B/A:0:5);
 Readln
End.

Var
 i:Byte;
 Sum:Word;
Begin
 Sum:=0;
 For i:=1 to 25 do
  Sum:=Sum+2*i;
 Writeln('Sum= ',Sum);
 Readln
End.

Var
 i:Byte;
 Sum:Word;
Begin
 Sum:=0;
 i:=0;
 While i<50 do
  begin
   i:=i+2;
   Sum:=Sum+i;
  end;
 Writeln('Sum= ',Sum);
 Readln
End.

Var {заголовок раздела объявления переменных}
 i:Byte; {счетчик цикла}     
 Sum:Word; {искомая сумма}
Begin {начало тела программы}
 Sum:=0; {задание исходного нулевого значения сумме}
 i:=0; {задание исходного нулевого значения счетчику}
 While i<50 do {объявление цикла; он прервется, когда значение счетчика станет равным 50}
  begin {начало цикла}
   i:=i+2; {увеличение значение счетчика на 2; таким образом, i последовательно принимает значения 0, 2, 4, 6, 8 и т.д. до 50}
   Sum:=Sum+i; {к сумме прибавляются вышеуказанные значения счетчика}
  end; {конец цикла}
 Writeln('Sum= ',Sum); {вывод результата (значения суммы) на экран}
 Readln {приостановка работы программы, чтобы можно было полученный результат рассмотреть}
End. {конец тела программы}