Var a:integer; begin readln(a) if a:=1 then writeln('1 - один'); if a:=2 then writeln('2 - два'); if a:=3 then writeln('3 - три'); if a:=4 then writeln('4 - четыре'); . . .{по аналогии} end. 2)Абсолятно то же самое что и в предыдущем номере, просто тепрь писать 1 - понедельник, 2 - вторник... 3)var a:integer; if a:=1 then writeln('Sharik'); if a:=2 then writeln('kot'); if a:=3 then writeln('Fedor'); if a:=4 them writeln('Pechkin'); end. 4) и 6) выполняются по аналогии. Если не понимаешь, я объясню в комментариях.
x,s:real;
begin
writeln('Введи число х : ');
readln(x);
s:=sqrt(x+1);
writeln(s);
readln;
end.