Придумайте пример линейного алгоритма из восьми строчек

Program z_1;var a,b,c,d,n: integer;begin(начало алгоритма)writeln('Введите 1 число');readln (a);writeln("Введите 2 число");readln (b);c:= a+b;d:=a-b;n:=a*b;writeln(a,b,c);(конец)end. (На всякий случай привел пример программы находящей сумму, разность, произведение чисел a и b.