uses crt;
var a,b,c:real;
begin
clrscr;
write('a=');read(a);
write('b=');read(b);
write('c=');read(c);
write('pinadlejat:');
if (a>=1) and (a<=3) then write(a);<br>if (b>=1) and (b<=3) then write(b);<br>if (c>=1) and (c<=3) then write(c);<br>end.
---
{без массива, ручной ввод}