Введите время (только часы). напечатайте соответствующее этому времени сообщение: "доброе утро", "добрый день", "добрый вечер", "доброй ночи". это , по моему по паскалю или вроде того! ,

2 var  3 s: string;   4 begin  5  readln(s); 6  while  pos('с',s)> 0  do  delete(s,pos('с',s),1); 7writeln(s);   8 end.это точно

for a : = 1 to 20 do

begin

    writeln(a,"^2 = ", a*a);

end

или

a: = 1;

repeat

    writeln(a,"^2 = ", a*a);

    a : = a + 1;

until a > 20;