program p3 var s1 s2 s3 r1 r2 r3 string begin s1 солнце s2 небо s3 обл

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
program p3;
var s1, s2, s3, r1, r2, r3 : string;
begin
s1:= 'солнце';
s2:= 'небо';
s3:= 'облака';
writeln('Введите рифму к слову '+ s1);
readln(r1);
writeln(s1+' - '+r1);
writeln('Введите рифму к слову '+ s2);
readln(r2);
writeln(s2+' - '+r2);
writeln('Введите рифму к слову '+ s3);
readln(r3);
writeln(s3+' - '+r3);
readln;
end.