Question

program Sasha;

begin;

var s:string;
Name, Hello: string;

write('Введите ваше имя');

readln(Sasha);

writeln('Здравствуйте, ',s);

readln(Hello);
for s:=1 to 13 do writeln(Name, ' ', Hello);

end.

Answer 1

ʕ•́ᴥ•̀ʔっ♡Переписал чуток, для начала у тебя переменная Sasha не инициализирована, ты создал переменную Name, а считать имя пытался в Sasha, которой не существует. Потом в цикле переменная s у тебя типа string, а строка это не число, как к ней что то прибавлять?

Я чутка поправил, вроде работает:

var Sasha, Hello: string;

var s:integer;

begin

write('Введите ваше имя');

readln(Sasha);

writeln('Здравствуйте, ',Sasha);

readln(Hello);

for s:=1 to 13 do writeln(Sasha, ' ', Hello);

end.

Answer 2

Ответ:

после begin не нужно ставить ;

переменные через var обьявляются перед begin

нету end.

Объяснение:

Все неправильно