var rK, rV: integer;
begin
writeln('Введите рост Коли:');
readln(rK);
writeln('Введите рост Васи:');
readln(rV);
if rK>rV then writeln('Коля выше Васи.')
else writeln('Вася выше Коли.');
end.
var rK, rV: integer;
begin
writeln('Введите рост Коли:');
readln(rK);
writeln('Введите рост Васи:');
readln(rV);
if rK>rV then writeln('Коля выше Васи.')
else writeln('Вася выше Коли.');
end.