Найти квадрат суммы и сумму квадратов 2-х целых чисел, вводимых с клавиатуры. Черезе паскаль

program zz1;

var a, b, s, r:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

s:=sqr (a + b); / / высчитываем квадрат суммы чисел

r:=sqr (a) + sqr (b); / / высчитываем сумму квадратов чисел

writeln (' квадрат суммы чисел = ', s); / / выводим первый ответ и переходим на новую строку

writeln (' сумма квадратов чисел = ', r); / / выводим второй ответ

end.