написать программу Pascal

var a, b, x:integer;

begin

readln(a, b);

if a > b then x:=b*a+1;

if a = b then x:=3425;

if a < b then x:=(2*a-5)/b;

writeln(x);

end.

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.