3. Берілген блок-сызбадағы алгоритмнің псевдокоды мен программасын жазыңыз.

var

  s: string;

  i: longint;

begin

  readln(s);

for i: =1 to length(s) div 2 do write(s[i]);

end.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end. 

б,в,г,е - лцд остальное к трубке

var x,y,a,b: real; begin  read(a,b);   read(x,y);   if y=a*x+b then      writeln('точка принадлежит прямой')  else  writeln('точка не принадлежит прямой'); end.