По программированию линейному алгоритму составить 1.сумму а и б 2.частное х и у. 3. произведение ав и сд тока с решением

1) var a, b: real; begin       readln(a, b);       writeln('> ', a + b); end.2)var x, y: real; begin      readln(x, y);       writeln('> ', x / y); end.3)var ab, cd: real; begin      readln(ab, cd);       writeln('> ', ab * cd); end.вот так, а program не обязательно, сейчас xxi век) 

//pascal abc.net v3.0 сборка 1111 const   n=10; var   ma: array[1..n,1..n] of integer;   min,mini,minj,i,j: integer; begin min: =2147483647;   randomize;   writeln('matrix: ');     for i: =1 to n do     begin;     writeln;     for j: =1 to n do       begin;       ma[i,j]: =random(300);       write(ma[i,j]: 4);       if min> ma[i,j] then         begin;         min: =ma[i,j];         mini: =i;         minj: =j;         end;       end;     end;   writeln;   write('строка: ',mini,' столбец: ',minj); end.

1. var  s: string;   i: integer; begin  write('введите строку ');   readln(s);   for i: = 1 to length(s) do    if ((s[i]='о')or(s[i]='o'))and((i mod 2) = 0) then s[i]: ='и';   writeln(s);   end.     2.  var  s: string;   i,j: integer; begin  write('введите строку ');   readln(s);   s: =s+' ';   for i: = 1 to length(s) do    if (s[i]='в')and(s[i+1] = 'а') then begin s[i]: ='к'; for j: =(i+1) to (length(s)-1) do s[j]: =s[j+1]; end;   writeln(s);   end.