program kalkulacka;
{ Program kalkulačka očekává vstup na třech řádcích: číslo, znak a opět číslo.
Víme, že čísla se vejdou do integeru.
Dále Pokud znak bylo +, tak vypíše součet těch dvou čísel. Pokud -, tak vypíše jejich rozdíl.}
var c : char; {Do znaku c budeme ukládat symbol operace.}
a,b : integer; {Argumenty operace (součtu či rozdílu).}
begin
readln(a); {Jelikož víme, že na této řádce již nic dalšího není, můžeme použít readln místo read.}
readln(c);
readln(b);
if (c = '+') then
write(a+b)
else if (c = '-') then
write(a-b);
end.
Kdo byste našel v nějakém z těchto programů chybu, dejte mi to vědět - můžete tak získat bonusové body (1 chyba ≈ 5 bodů). ;)