Пожалуйста посчитайте написать прогу! PASCAL1)Пусть 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 495