Блок-схема

program zadanie6;
type product=record
        name:string;
        old_price:integer;
        new_price:integer;
end;
const product_n = 5;
const products:array[1..product_n] of product = (
                                                (name:'Lays!'; old_price:7; new_price:10),
                                                (name:'Potato'; old_price:3; new_price:2),
                                                (name:'Olives'; old_price:12; new_price:11),
                                                (name:'Notebook'; old_price:3; new_price:6),
                                                (name:'Pen'; old_price:1; new_price:1)
                                                );
var i:integer;
 
begin
        writeln('Цена повысилась на следующие продукты:');
        for i:=1 to product_n do
                if products[i].old_price < products[i].new_price then
                        writeln ('   ', products[i].name, '   ',
                                (products[i].new_price-products[i].old_price)/products[i].old_price*100:0:2, '%');
end.