Succ(round(5/2)-pred(3)) обчислить значение выражения ( Object Pascal)​

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.

а)1,3,6,4,11,5,16,6

б)9,7,10,8,11,9,12,10

в)3,2,1,6,5,4,9,8,7

var a,b,c,a1,b1,c1: real;

begin

readln(a,b,c);

b1: =a;

c1: =b;

a1: =c;

writeln(a1,b1,c1);

end.

program a1;

  uses crt;

var a,b,c,k: longint;

begin

  clrscr;

  write('введите первое число: '); readln(a);  

  write('введите второе число: '); readln(b);  

  write('введите третье число: '); readln(c);    

if a< b then k: =a else k: =b;

if b< k then k: =b;

writeln(k);

readln

end. 

если paskal abc, то выделенное можно не писать