Dau coroanaa va rog!!!
De rezolvat problema in Turbo Pascal. Petrica a cumparat x caiete y creioane z pixuri.
Cati bani a cheltuit Petrica?

Program P1;

uses crt;

var x,y,z,t:integer;

begin

clrScr;

writeln('Introduceti cate caiete a cumparat Petrica:');

write('x= '); readln(x);

writeln('Introduceti cate creioane a cumparat Petrica:');

write('y= '); readln(y);

writeln('Introduceti cate pixuri a cumparat Petrica:');

write('y= '); readln(y);

writeln('Pretul pentru fiecare in parte este de 5 lei.');

t:=(x*5)+(y*5)+(z*5);

writeln('Suma total cheltuita de Petrica este de :', t);

readln;

end.