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

  • Anonymous
  • Text only
  • 07 Oct 2014 
 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.
← newer dump
older dump →