Ввести с клавиатуры две строки и вывести на экран те строки, у которых на 2-м и 4-м месте стоят буквы ‘а’
Извините, но не подскажите как вывести ответ:
var a,b:string;
i:integer;
begin
writeln('Vvedite 1 stroky');
readln (a);
writeln ('Vvedite 2 stroky');
readln (b);
if (a[2]='a') and (a[4]='a') or (b[2]='a') and (b[4]='a') then
{как вывести ответ???}
else writeln ('takoi stroki net');
end.
Всё разобралась сама!