Лабораторная работа № 1. Линейные алгоритмы: алгебраические выражения Вариант 7

I. Дана программа, решающая определенную задачу.
Составить систему тестов к данной программе.
Привести итоги работы программы для каждого теста.
7. Даны два числа. Найти частное и остаток от деления первого на второе.
Program arif;
Var
     a, b, ch, ost: Integer;
Begin
write('a='); readln(a);
write('b='); readln(b);
ch := a div b;
ost := a mod b;
writeln(' частное: ', ch,' остаток: ', ost);
end.
II. Дана программа, решающая определенную задачу.
В программе имеются ошибки и пропуски. Необходимо исправить ошибки и заполнить пропуски.
7. Составить программу вычитания двух обыкновенных дробей: a/b минус c/d.
Program   дроби;
Var
     a b c d ch zn: integer;
Begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
____ := a * d - b * c;
zn := ______;
writeln('Ответ: ',ch, '/',zn);
end.
III. Решить следующую задачу: Написать программу вычисления значения следующего арифметического выражения
7.
IV. Решить следующую задачу:
7.  Даны три числа. Возвести их сумму в квадрат.
Все задания решены на Pascal