На Паскаль!! Вывести на экран в столбик все слова введённого текста, исправить опечатки и напечатать исправленный текст.

5.3
а) var i: integer;
begin
for i:=20 to 35 do writeln (i);
end.
б) var i,a: integer;
begin
read (a);
for i:=a to 50 do writeln (i*i);
end.
в) var i,a: integer;
begin
read (a);
for i:=a to 50 do writeln (i*i*i);
end.
г) var i,b,a: integer;
begin
read (a, b);
for i:=a to b do writeln (i);
end.

Вот, думаю правильно
а) var i: integer;
begin
for i:=20 to 35 do writeln (i);
end.
б) var i,a: integer;
begin
read (a);
for i:=a to 50 do writeln (i*i);
end.
в) var i,a: integer;
begin
read (a);
for i:=a to 50 do writeln (i*i*i);
end.
г) var i,b,a: integer;
begin
read (a, b);
for i:=a to b do writeln (i);
end.

Тебе, что ли, текстовый редактор на паскале написать нужно?

program Project1;
var
Text: string;
Result: string;
LastSymbol: string;
LastWord: string;
I: Integer;
begin
WriteLn('Vvedite tekst');
ReadLn(Text);
LastSymbol:= ' ';
Result:= '';
for I:= 1 to Length(Text) do
begin
if (Length(LastWord) > 1) or (Text[I] <> LastSymbol) then
begin
Result:= Result + Text[I];
if Text[I] <> ' ' then
LastWord:= LastWord + Text[I]
else
begin
WriteLn(LastWord);
LastWord:= '';
end
end;
LastSymbol:= Text[I];
end;
WriteLn(LastWord);
WriteLn(Result);
ReadLn;
end.

Овючд

у меня нокиа икс два я сегодня решила обновить телефон когда обновилось нужно было перезапустить телефон я сделала но для завершения нужен был wi-fi у меня его нет я отменила обновление и теперь у меня нет сети я не могу зайти ни в интернет и позвонить нечего хотя до этого было все хорошо я вас очень прошу помогите пожалуйста!!! буду очень очень благодарна

What?

С+

кееап

Паскаль тебе не поможет нигде. Если хочешь стать програмистом тебе паскаль не поможет никак.
На работу пойдешь устраиваться, тебя спросят: "Что ты знаешь о Java или C+?". Ты скажешь, что знаешь только Паскаль, тебя вышвирнут просто.
Крч, изучай Java, Delfi или C+. С ними на любую работу примут.