var a:real;
begin
writeln ('Введите цену товара:');
readln(a);
if (a>=200) then
a:=a-(a/10)
else
a:=a;
writeln('С учётом всех скидок товар стоит',' ',a,' ', 'евро');
end;
end.
var a:real;
begin
writeln ('Введите цену товара:');
begin
readln(a);
if (a>=200) then
a:=a-(a/10)
else
a:=a;
writeln('С учётом всех скидок товар стоит',' ',a,' ', 'евро');
end;
end.