Даны целые числа а в составить программу которая выводит квадрат суммы чисел если число а делится на число в без остатка в противном случае - квадрат числа

Vara,b:integer;begin a:=ReadInteger('Введите a'); b:=ReadInteger('Введите b'); if a mod b=0 then begin  write(Sqr(a+b)) end; if a mod b<>0 then begin write(SQR(a)) end; end.