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

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.