у меня экзамен

[sokol987]

27 задача паскаль авс

[glebast]

Вот кусок программы.

uses crt;
var a,x:real;

begin
clrscr;
write('ââåäèòå êîë-âî');
read(x);
if x>0.25 then
begin
a:=(x-0.25)/0.1;
write('p.t.= 10min','v.t.=',a,'min');
end;
end.