Question

begin

var s1,s2:string;

print('Введите строки из произведения:');

read(s1);

println('Введите автора строки:');

read(s2);

print('Все ясно, делаешь вид что шаришь за', s2);

end.

Проблема:

не хочет считывать вторую переменную.

Программа PascalABC.NET 3.7.1

Answer 1

var s1,s2:string;

begin

 Write('Введите строки из произведения:');

 readln(s1);

 Write('Введите автора строки:');

 readln(s2);

 Write('Все ясно, делаешь вид что шаришь за', s2);

end.

Попробуй так.