Нужно написать 2...

Нужно написать 2 программы желательно в PASCAL ABC Программа 2. Пользователь вводит две целые переменные a, b. Написать программу для выполненияследующих операций:

 

1 задание.
uses crt;
var
a, b : real;
begin
readln (a, b);
writeln (a/b);
writeln (frac(a/b));
writeln (int(a/b));
writeln (round(a/b));
readkey;
end.
 
2 задание.
uses crt;
var
a: integer;
st, st1, st2, st3: string;
begin
readln (a);
str (a, st);
st1:=st[3];
st2:= st[2];
st3:= st[1];
st:= st1+st2+st3;
writeln (st);
readkey;
end.