Z-PIZZA

Resenija su mi tacni ali imam problem sa ucitavanje podatka

javuje error

kada komanda odi
var im,del:longint;
kar:char;
read(im,kar,del);

dajte nekakav HINT
da ne se zamaram da konvertiram stringove
jer to je vece uzlosnivanje zadaca

Probaj vaka, ako znak e promenliva od char, so ord(znak)-48 ja konvertiras vo broj:


var c1, c3, c2: char;
a, b: integer;

begin
readln (n);
for i:= 1 to n do begin
readln (c1, c3, c2);
a:= ord (c1) - 48;
b:= ord (c2) - 48;
....