Поставь плюсы там, где нужно, чтобы правильно ответить на вопросы.

​

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.

см схему на стр 15, № 34                                                  

такая

естественная

красота

самая

теплая

: dd что есть, то есть

var i,s: integer;

begin

  for i: = 1 to 100 do

      s: = s+ i;

  writeln(s/100);

end.