Question

Даны натуральные числа x,y,z, определяющие возраст трех друзей.Из данных чисел напечатать те, которые обозначают ''школьный'' возраст, то есть от 7 до 16 лет.
(На языке Паскаль)

Answer 1

var x,y,z:integer; 
begin 
readln(x,y,z); 
if x in [7..16] then write(x:4); 
if y in [7..16] then write(y:4); 
if z in [7..16] then write(z:4); 
writeln; readln 
end.

Answer 2

uses crt;
var x,y,z,i: integer;
begin
 clrscr;
readln (x,y,z);
case x of 7..16:
writeln (x);
end;
case y of 7..16:
writeln (y);
end;
case z of 7..16:
writeln (z);
end;
readln ();
end.