// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
begin
Draw(x->Sqrt(x),0,10)
end.
var a,c: real;
begin
write ('Введите стоимость 1 кг яблок: ');
readln (c);
a := 0.6;
while a <= 7.2 do
begin
writeln(a:3,' кг яблок стоит ', a*c,' руб.');
a := a + 0.6
end
end.