Даны два ненулевых числа. Найти частное их квадратов

program zz1;

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

c:real; / / задаем переменную не целого типа

begin

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

read (a);

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

read (b);

c:=sqr (a) / sqr (b);

write (' частное квадратов заданных чисел = ', c:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.