Нужно написать 2 программы желательно в PASCAL ABC Программа 2. Пользователь вводит…

1 задание.uses crt; var a, b: real; beginreadln (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; beginreadln (a); str (a, st); st1: =st[3]; st2: =st[2]; st3: =st[1]; st: =st1+st2+st3; writeln (st); readkey; end.