Добрый день. Я новичок в этом. Сайт универа не принимает мой алгоритм (пишет неверное решение).

Что неверно?

Пример ввода:
longint
char
string

Пример вывода:
s1 : string;
s2 : longint;
s3 : char;

Мое решение:

program p1;
var s1, s2, s3:string;
begin
read (s1, s2, s3);
writeln ('s1',' ',':',' ',s3,';');
writeln ('s2',' ',':',' ',s1,';');
writeln ('s3',' ',':',' ',s2,';');
end.

Приведите исходную постановку задачи, т.к. непонятно, почему порядок ввода не совпадает с порядком вывода.

Спасибо за отклик, уже разобрался.
Должно было быть так:

program p1;
var s1, s2, s3:string;
begin
readln (s1);
readln (s2);
readln (s3);
writeln ('s1',' ',':',' ',s3,';');
writeln ('s2',' ',':',' ',s1,';');
writeln ('s3',' ',':',' ',s2,';');
end.