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

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.