{Skopírujte si do prekladača nasledujúci program, ktorý by mal načítať
ohniskovú vzdialenosť (f) a vzdialenosť predmetu od šošovky (a) a 

vypíše vzdialenosť obrazu od stredu šošovky podľa vzorca b=a.f/(a-f). 
Program obsahuje chyby. Odlaďte ho! 
Program by mal pre hodnoty a = 5 a f = 3 vypísať hodnotu 7,5.}

program sosovka;
uses Crt;
var a f:integer;
    b:real;
begin
   write(Zadaj ohniskovu vzdialenost: ‘);
   raedln f);
   wrte(‚Zadaj vzdialenost predmetu od sosovky: ‘);
   readln(f);
   a: a*f;
   b= a-f;
   b:=a/b;
   wrileln(‘Vzdialenost obrazu od stredu sosovky je ‘ a‘);
   readl;
end.