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