Даны два ненулевых числа. Найти их сумму, разность, произведение и частное их квадратов. Язык Pascal.

Для решения задачи нужно ввести два ненулевых числа a и b, а затем вычислить:

• сумму: a + b;

• разность: a - b;

• произведение: a * b;

• частное их квадратов: a² / b².

Программа на Pascal:

pascal
program Zadacha;
var
  a, b: real;
begin
  write('Введите первое число: ');
  readln(a);
  write('Введите второе число: ');
  readln(b);
  writeln('Сумма = ', a + b:0:2);
  writeln('Разность = ', a - b:0:2);
  writeln('Произведение = ', a * b:0:2);
  writeln('Частное квадратов = ', (a * a) / (b * b):0:2);
end.

Например, если ввести:

a = 6
b = 3

получим:

Сумма = 9.00
Разность = 3.00
Произведение = 18.00
Частное квадратов = 4.00

Так как по условию оба числа ненулевые, при вычислении (a * a) / (b * b) деления на ноль не возникнет.