Написать прогу! pascal 1)пусть a=17, b=5. найти div, mod и sgr(b) 2)пусть a=48, b=6. найти div, mod и sgr(а) 3)пусть a=25, b=7. найти div, mod,sgr(b) и sgrt (a)

var a,b:integer;
begin
a:=17; b:=5;
writeln(a div b,' ',a mod b,' ',sqr(b));
a:=48; b:=6;
writeln(a div b,' ',a mod b,' ',sqr(a));
a:=25; b:=7;
writeln(a div b,' ',a mod b,' ',sqr(b),' ',sqrt(a));
end.

Результат:
3 2 25
8 0 2304
3 4 49 5