TP riesenie

[Redrox]

Zdravim dostal som ulohu v TP, ale ja som v tom amater a neviem sa pohnut
program:kalkulacka
Jednoducha kalkulacka, ktora z dvoch zadanych cisel podla zadania pouzivatela vypocita sucet,sucin,podiel a rozdiel danych cisel


za kazdu radu dakujem

[ebb]

program kalkulacka;
uses crt;
var znak:char;
a,b,c:real;
begin;
clrscr;
writeln('Zadaj 1.cislo, operator, 2.cislo : ');
readln(a);
readln(znak);
readln(b);
case znak of
'+':c:=a+b;
'-':c:=a-b;
'*':c:=a*b;
'/':c:=a/b;
end;
gotoxy(8,8);
write(a:8:2,znak:3,b:8:2,'=',c:8:2);
readln;
end.

[Endy]

dostal som podobne zadanie a poprosil by som ci by ten predchadzajuci program mohol niekto upravit na strukturovany program, ktory z 2 zadanych cisel spravi sucin, sucet, podiel, rozdiel. Ten predchadzajuci spravi vsetko naraz, a to nepotrebujem. Moje skusenosti z TP su chabe. Prosim o pomoc...
Dakujeem