Вопрос Найти и исправить ошибки в тексте программы

[opiym]

Найти и исправить ошибки в тексте программы

вот сам код который нужно исправить:

Program Uslovie;
Consf a:=2.5;
B=1,5;
Var z,t : real;
Begin;
Write ln (‘Введи значение t’);
Readln (t);
If t <=0 Then Z=a+b
Else If t<=2 Then Z=t*(a+b)/(a*b)
Else Z=(a+b)/t
Writeln (‘При t=’, t:4.1, ‘ z= , z:4:2 );
Writeln (‘Для выхода из программы нажмите ’);
Readln;
End.