Как изменялось программное обеспечение с развитием компьютеров?​

линейный (следования)

разветвляющийся (развилка)

циклический

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.

var

a,b: integer;

begin

write('введите в одной строке два целых числа и нажмите < enter> ');

readln(a,b);

if a=b then writeln('числа равны')

else 

if a> b then writeln(a,' больше')

else writeln(b,' больше')

end.

var s1, s2: string;

begin writeln('введите строку'); readln(s1); writeln('введите слово'); readln(s2); writeln('позиция слова в строке'); writeln(pos(s2, s1)); end.