Begin var s1,s2:string;
print('Введите строки из произведения:');
read(s1);
println('Введите автора строки:');
read(s2);
print('Все ясно, делаешь вид что шаришь за', s2);
end.
Проблема:
не хочет считывать вторую переменную.
Программа PascalABC.NET 3.7.1
var s1,s2:string;
begin
Write('Введите строки из произведения:');
readln(s1);
Write('Введите автора строки:');
readln(s2);
Write('Все ясно, делаешь вид что шаришь за', s2);
end.
Попробуй так.